10 PRINT"[147]":POKE788,52:IFA=0THENGOSUB39000
11 IFA=0THENPRINT"[147][144]    BITTE WAEHLEN :":GOTO13
12 SYS49152
13 FORI=1TO5:READA$(I):NEXT
14 DATADETONATION,FLAP,PLATFORMS,SCAVENGER-HUNT,SPEEDWAY
15 PRINT"":FORI=1TO5:PRINT"   ";I;" ->  ";A$(I):NEXT
16 GETB$:B=VAL(B$):IFB<1ORB>5THEN16
17 A=1:LOADA$(B),8,1
39000 POKE53280,6:POKE53281,6:POKE646,1
39001 PRINT"[147]   TIGER-DISK 16 / 02 [146]  EINLEGEN !!!!"
40000 POKE198,0:WAIT198,1
40010 OPEN15,8,15:PRINT#15,"I":OPEN1,8,3,"#":PRINT#15,"U1 3 0 18 0"
40020 PRINT#15,"B-P 3 162":GET#1,A$,B$,C$,D$,E$
40030 CLOSE15:CLOSE1
40031 IFA$<>"1"THEN40000
40032 IFB$<>"6"THEN40000
40033 IFC$<>"/"THEN40000
40034 IFD$<>"0"THEN40000
40035 IFE$<>"2"THEN40000
40036 POKE646,0:POKE53280,15:POKE53281,15:POKE198,0:RETURN